VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParametro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"lCompania"
'---------------------------------------------------------------------------------------
' Module    : BParametro
' DateTime  : 30/11/2011 11:59
' Author    :
' Purpose   : Clase Datos Entidad Parametro
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarbUsuarioActivo As busuario
Private mvarsFormatoFecha As String
Private mvarlCompania As Collection
Private mvarbCompaniadPorDefecto As bCompania
Private mvarnTipoCambio As Double
Private mvarnIgv As Double
Private mvarnDiaTrabajo As Integer
Private mvarnServicio As Double
Private mvardFexpiracion As Date
Private mvarSTipoAplicacion As String
Private mvarsDirImgProductos As String
Private mvarsDirImgCategorias As String
Private mvarbPreCuenta As Boolean
Public Property Get sDirImgProductos() As String
    sDirImgProductos = mvarsDirImgProductos
End Property
Public Property Let sDirImgProductos(ByVal sDirImgProductos As String)
    mvarsDirImgProductos = sDirImgProductos
End Property
Public Property Get sDirImgCategorias() As String
    sDirImgCategorias = mvarsDirImgCategorias
End Property
Public Property Let sDirImgCategorias(ByVal sDirImgCategorias As String)
    mvarsDirImgCategorias = sDirImgCategorias
End Property
Friend Property Get nTipoCambio() As Double
    nTipoCambio = mvarnTipoCambio
End Property
Friend Property Let nTipoCambio(ByVal nTipoCambio As Double)
    mvarnTipoCambio = nTipoCambio
End Property
Friend Property Get lCompania() As Collection
    Set lCompania = mvarlCompania
End Property
Friend Property Set lCompania(lCompania As Collection)
    Set mvarlCompania = lCompania
    Dim bCompania As bCompania
    Dim i As Integer
    For i = 1 To mvarlCompania.Count
        Set bCompania = mvarlCompania.Item(i)
        If bCompania.bPorDefecto Then Set mvarbCompaniadPorDefecto = bCompania
    Next
End Property
Friend Property Set bUsuarioActivo(ByVal vData As busuario)
    Set mvarbUsuarioActivo = vData
End Property
Friend Property Get bUsuarioActivo() As busuario
    Set bUsuarioActivo = mvarbUsuarioActivo
End Property
Friend Property Get sFormatoFecha() As String
    sFormatoFecha = mvarsFormatoFecha
End Property
Friend Property Let sFormatoFecha(ByVal sFormatoFecha As String)
    mvarsFormatoFecha = sFormatoFecha
End Property
Friend Property Get bCompaniadPorDefecto() As bCompania
    Set bCompaniadPorDefecto = mvarbCompaniadPorDefecto
End Property
Friend Property Get nIgv() As Double
    nIgv = mvarnIgv
End Property
Friend Property Let nIgv(ByVal nIgv As Double)
    mvarnIgv = nIgv
End Property
Friend Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property
Friend Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property
Friend Property Get dFexpiracion() As Date
    dFexpiracion = mvardFexpiracion
End Property
Friend Property Let dFexpiracion(ByVal dFexpiracion As Date)
    mvardFexpiracion = dFexpiracion
End Property
Private Sub Class_Initialize()
    Set mvarlCompania = New Collection
    Set mvarbCompaniadPorDefecto = New bCompania
End Sub
Private Sub Class_Terminate()
    Set mvarlCompania = Nothing
    Set mvarbCompaniadPorDefecto = Nothing
End Sub
Public Property Get nServicio() As Double
    nServicio = mvarnServicio
End Property
Public Property Let nServicio(ByVal nServicio As Double)
    mvarnServicio = nServicio
End Property
Friend Property Let sTipoAplicacion(ByVal vData As String)
    mvarSTipoAplicacion = vData
End Property
Friend Property Get sTipoAplicacion() As String
    sTipoAplicacion = mvarSTipoAplicacion
End Property
Public Property Get bPreCuenta() As Boolean
    bPreCuenta = mvarbPreCuenta
End Property
Public Property Let bPreCuenta(ByVal bPreCuenta As Boolean)
    mvarbPreCuenta = bPreCuenta
End Property
